home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Garbo
/
Garbo.cdr
/
mac
/
hypercrd
/
hc1_2_x
/
smrtslds.sit
/
SmartSlides 1.1 Demo
/
card_6201.txt
< prev
next >
Wrap
Text File
|
1990-06-12
|
13KB
|
647 lines
-- card: 6201 from stack: in.1 Demo
-- bmap block id: 6982
-- flags: 0000
-- background id: 2635
-- name:
-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=19 right=50 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delay
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "Delay "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=55 right=86 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Beep
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "Beep "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=89 right=120 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LockScreen
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "LockScreen "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=123 right=154 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Opener
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "On OpenCard "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=16 top=12 right=45 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 91
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Title
-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=89 top=48 right=303 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 91
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: body
-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=89 top=50 right=82 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hiliter
-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=89 top=82 right=114 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hiliter
-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=89 top=114 right=146 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hiliter
-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=89 top=146 right=178 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hiliter
-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=89 top=178 right=210 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hiliter
-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=89 top=210 right=242 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hiliter
-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=89 top=242 right=274 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hiliter
-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=89 top=274 right=303 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hiliter
-- part 7 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=424 top=285 right=307 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Step 1
----- HyperTalk script -----
on restore
put the id of me into holder
put 1 into item 1 of line holder of field Heirarchy
if item 2 of line holder of field Heirarchy is empty
then
set the name of button ID holder to "Step (1)"
else
set the name of button ID holder to "Step 1"
end if
end restore
-- part 8 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=89 top=50 right=303 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Shrinker 32
----- HyperTalk script -----
on restore
put the id of me into holder
set the rect of me to line holder of background field "ButtonRects"
put 1 into item 1 of line holder of field Chains
end restore
-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=52 top=50 right=82 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 10454 / 10454
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CheckBox Dingbat
-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=52 top=82 right=114 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 10454 / 10454
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CheckBox Dingbat
-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=52 top=114 right=146 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 10454 / 10454
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CheckBox Dingbat
-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=52 top=178 right=210 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 10454 / 10454
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CheckBox Dingbat
-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=52 top=242 right=274 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 10454 / 10454
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CheckBox Dingbat
-- part 24 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=211 top=56 right=274 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PopUp 25
-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=282 right=309 bottom=13
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PopItUp
----- HyperTalk script -----
on mouseUp
if the optionKey is down then
GiveHelp "PopUp "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 26 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=211 top=20 right=285 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PopUp 27
-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=282 right=309 bottom=13
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PopItUp
----- HyperTalk script -----
on mouseUp
if the optionKey is down then
GiveHelp "PopUp "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 28 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=211 top=20 right=285 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PopUp 29
-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=282 right=309 bottom=13
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PopItUp
----- HyperTalk script -----
on mouseUp
if the optionKey is down then
GiveHelp "PopUp "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part contents for background part 283
----- text -----
6
-- part contents for background part 33
----- text -----
scroll left slowly to card
scroll right slowly to card
-- part contents for card part 5
----- text -----
Shrinker & Stepper Buttons
-- part contents for card part 6
----- text -----
Click repeatedly at lower right.
Each click reveals one more line.
A Shrinker button shrinks downward
one more line each time you click it.
Each size of the Shrinker can be the
start of a new chain.
Using chaining, you can make it
shrink two lines at once.
-- part contents for background part 130
----- text -----
89,50,487,303
-- part contents for background part 142
----- text -----
Delay
Opener
Step (4)
Shrinker 32
Hiliter
Hiliter
Hiliter
Hiliter
Hiliter
Hiliter
Hiliter
Hiliter
CheckBox Dingbat
CheckBox Dingbat
CheckBox Dingbat
CheckBox Dingbat
CheckBox Dingbat
PopUp 25
PopItUp
PopUp 27
PopItUp
PopItUp
-- part contents for background part 100
----- text -----
1,4 8 17 9 1
1,7 25,7 24 27,7 26 29
1,,8 17 18 10 1,8 18 19 11 1,8 11 12 1 1,8 8 19 21 13 14 1 1,,8 8 21 23 15 16 1 1
-- part contents for background part 125
----- text -----
24
26
28
-- part contents for card part 24
----- text -----
STAGE ONE IN CREATING THIS SLIDE:
ΓÇó Create Title field
ΓÇó Enter title
ΓÇó Create Body field
ΓÇó Resize Body field
to leave left margin
ΓÇó Enter text
ΓÇó Tile Hiliters on Body field
ΓÇó Create & locate CheckBox button
ΓÇó Use Shift-Command-Drag to
duplicate CheckBox buttons
-- part contents for card part 26
----- text -----
STAGE TWO IN CREATING THIS SLIDE:
ΓÇó Create & locate Stepper button
ΓÇó Create Shrinker button on Body
ΓÇó Chain: On OpenCard, Shrinker,
CheckBox, Hiliter, Delay
ΓÇó Chain: Shrinker, CheckBox 1,
CheckBox 2, Hiliter 2, Delay
ΓÇó Chain: Shrinker, CBox 2, CBox 3,
Hiliter 3, Delay
ΓÇó Chain: Shrinker, Hiliter 3, Hiliter 4,
Delay, Delay
ΓÇó Chain: Shrinker, Shrinker, CBox 3,
CBox 4, Hiliter 5, Hiliter 6,
Delay, Delay
ΓÇó Chain: Similarly for last two lines
-- part contents for card part 28
----- text -----
STAGE THREE IN CREATING THIS SLIDE:
ΓÇó Create PopUp field
ΓÇó Change font & resize field
ΓÇó Enter description of Stage 1
ΓÇó Chain: Stepper, PopUp's button
ΓÇó Create 2nd PopUp field
ΓÇó Change font & resize field;
leave a bit of first PopUp showing
ΓÇó Chain: Stepper, first PopUp field,
second PopUp's button (on top)
ΓÇó Enter description of Stage 2
ΓÇó Create 3rd PopUp, change font, resize
ΓÇó Chain: Stepper, Pop2, Pop3's button
ΓÇó Enter this text
ΓÇó Reset slide; make next slide